home *** CD-ROM | disk | FTP | other *** search
/ Avalanche Ranch: Clip Ar… Song Lyrics & Decorating / Avalanche Ranch: Clip Art, Song Lyrics & Decorating - Disc 1.iso / pc / Xtras / WIN32 / impressario / Libraries / DL6PDFL.dll / PSPROCSET / 16 < prev    next >
Text File  |  2004-12-17  |  2KB  |  147 lines
  1. %%BeginResource: procset pdflev1 6.0 1
  2. %%Copyright: Copyright 1987-2002 Adobe Systems Incorporated. All Rights Reserved.
  3. %%Title: PDF operators, with code specific for Level 1
  4. /docinitialize {
  5. PDF begin
  6. /_defaulthalftone
  7. /currenthalftone where
  8. { pop currenthalftone }
  9. { 4 dict dup begin
  10. currentscreen
  11. /SpotFunction exch def
  12. /Angle exch def
  13. /Frequency exch def
  14. /HalftoneType 1 def
  15. end }
  16. ifelse
  17. dd
  18. end
  19. PDFVars /docSetupDone true put
  20. } bd
  21. /initialize {
  22. PDFVars /docSetupDone get {_defaulthalftone sethalftone} if
  23. } bd
  24. /terminate { } bd
  25. /pl {
  26. transform
  27. 0.25 sub round 0.25 add exch
  28. 0.25 sub round 0.25 add exch
  29. itransform
  30. } bd
  31. /m { _sa? { pl } if moveto } bd
  32. /l { _sa? { pl } if lineto } bd
  33. /c
  34. {
  35. _sa? {3 {pl 6 2 roll} repeat} if
  36. curveto
  37. } bd
  38. /ri/pop ld
  39. /setSA { /_sa? xdd } bd
  40. /re
  41. {
  42. _sa?
  43. {
  44. 8 dict begin
  45. /:h exch def
  46. /:w exch def
  47. /:y exch def
  48. /:x exch def
  49. :x :y pl
  50. /:ymin exch def /:xmin exch def
  51. :x :w add :y :h add pl
  52. /:ymax exch def /:xmax exch def
  53. :xmin :ymin moveto
  54. :xmax :ymin lineto
  55. :xmax :ymax lineto
  56. :xmin :ymax lineto
  57. closepath
  58. end
  59. }
  60. {
  61. 4 2 roll moveto
  62. 1 index 0 rlineto
  63. 0 exch rlineto
  64. neg 0 rlineto
  65. closepath
  66. } ifelse
  67. } bd
  68. /q /gsave ld
  69. /Q /grestore ld
  70. /AlmostFull?
  71. { dup maxlength exch length sub 2 le
  72. } bd
  73. /Expand
  74. { 1 index maxlength mul cvi dict
  75. dup begin exch { def } forall end
  76. } bd
  77. /xput {
  78. 3 2 roll
  79. dup 3 index known not
  80. { dup AlmostFull? { 1.5 Expand } if
  81. } if
  82. dup 4 2 roll put
  83. } bd
  84. /defineRes {
  85. _categories 1 index known not
  86. { /_categories _categories 2 index 10 dict xput store
  87. } if
  88. _categories exch 2 copy get 5 -1 roll 4 index xput put
  89. } bd
  90. /undefineRes {
  91. null exch
  92. defineRes
  93. } bd
  94. /findRes {
  95. _categories exch get exch get
  96. } bd
  97. /L1setcolor {
  98. aload length
  99. dup 0 eq
  100. { pop .5 setgray }
  101. { dup 1 eq
  102. { pop setgray }
  103. { 3 eq
  104. { setrgbcolor }
  105. { setcmykcolor }
  106. ifelse }
  107. ifelse }
  108. ifelse
  109. } bind dd
  110. /setoverprint where
  111. { pop }
  112. { /setoverprint { pop } bd }
  113. ifelse
  114. /_safeput
  115. {
  116. Level1?
  117. {
  118. 2 index load dup dup length exch maxlength ge
  119. { dup length 5 add dict copy
  120. 3 index xdd
  121. }
  122. { pop }
  123. ifelse
  124. }
  125. if
  126. 3 -1 roll load 3 1 roll put
  127. }
  128. bd
  129. Level1?
  130. {
  131. /pdf_CopyDict
  132. {
  133. 1 index length add dict
  134. 1 index wcheck
  135. { copy }
  136. { begin
  137. {def} forall
  138. currentdict
  139. end
  140. }
  141. ifelse
  142. }
  143. def
  144. }
  145. if
  146. %%EndResource
  147.